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DISKSVMSMASTER: CERF. 


Pa 
CIRXDISK.FOR;1 


| 
0001 SUBROUTINE RXDISK (LUN) 
Bong C 
000 : Version: *v04-000' 
0005 er ee 
0006 ® *® 
0007 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0008 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
sist Fs ALL RIGHTS RESERVED. * 
® 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Bote C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * i 
001 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * i 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
pote ts TRANSFERRED. * i 
® 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * H 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
oosy es CORPORATION. * i 
* 
it) C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 3 
$057 x SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * P 
® 
0025 Ce * 
Bog8 ee en ee re ee en 
0038 C 
ot 34 C 
ttt 3 AUTHOR BRIAN PORTER CREATION DATE 9=-APR-1979 
003s C++ 
O08 : Functional description: 
0035 C This module displays entries for the RX211 controller. The format 
0036 C of the error log buffer is as follows. 
0037 C 
0038 C gone en wer Someone m enn wm ase me cee = oae + 
0039 C H control and status register i: 
0040 C foresaw see sees nm eee Eee mee eee 
0041 : H device data buffer register : 
$028 C ‘ data path number : 
Boee C Pew momar men eno eee ene mee nw mere ae mae + 
5 C : data path register H 
Rose C ¢ eww ee eoeceaes Swen nwa aw Be ewes aosec awe + 
004 C : final map register : 
0048 C bor ee oe ee Sesser ova se wasewoe see ae + 
0049 C : previous map register : 
0050 C ewe mere womoe Soe eee Benton earemesnamanwe 
0051 C : special error register H 
0038 : a see Se -= —es3eeSewreew ee ewe we ee ewes = : 
30 : ¢-- extended error information --+ 
0036 C as -eswereerewr cee ne error ewe wren e > 
57 C 
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Modified by: 
v03-003 SAR0233 


14 
IG-Sen-1964 O0:]4:14 


s - R 28-Mar-1984 


haron A. Reynolds, 
Changed the call to UCBSL_OWNUIC to ORBSL_OWNER. 


v03-002 SARO095 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 
v03-001 SAROOS1 Sharon A. Reynolds, 13-Jun-1983 
Removed brief/cryptic support. 
Brian Porter, 23-NOV-1981 


v02-004 BP 
Mi 


nor edit. 
v02-003 BP0003 


Brian Porter, 22-0CT-1981 


Added extended status processing. Added ‘device attention’ 


v02-002 BP0002 


support. 

Brian Porter, 23-JUL-1981 
Added different uba handling. 

Brian Porter 1-JUL-1981 


v02-001 8P0001 
Added call to DHEAD and LOGGER. 


INCLUDE *SRC$:MSGHDR.FOR /NOLIST' 
INCLUDE "SRC$:DEVERR.FOR /NOLIST’ 


byte 


INTEGER*4 
INTEGER*4 
INTEGER*®4 
integer*4 
integer*4 


integer*2 


EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
equivalence 
equivalence 
equivalence 


INTEGER*4 
INTEGER*4 

NTEGER#4 

nteger*4 
integer*4 
integer*4 
integere4 
integer*4 
integer*4 


lun 

RX2_CS 

RX2_ES 

UBA_REGS (4) 
special_error_register 
extended_registers(2) 


extended_status (4) 


(RX2_CS,EMBSL_DV_REGSAV(0)) 

(RX2_ES,EMBSL_DV_REGSAV(1)) 

(UBA~REGS ,EMBSL_BV_REGSAV(2)) 

(special_error_fegister ens dv_reggay(6)) 
b$l dv_regsav(7)) 


FIELD 

COMPRESSC 

COMPRESS4 
definitive_error_code 
word_count_register 
current_track_address_drive0 
current_track_address_drivel 
target_frack 

target_sector 
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es 
x2_es( 


varx2_es( 
v3rx2_es( 


t 
visoft_status( 
visoft_status( 
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v2soft_status(% 
véesoft_status(4 


soft_status 
bad_ftrack 


done 
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RROR**/ 
1 READY (RX03)*'/ 
ALIZE DONE*'/ 
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LO* 
ERROR*'/ 
v2rx2_es 
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IVE READY*'/ 
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v3soft_status(5) /*HEAD LOADED*'/ 
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v4soft_status(6:7,0:1) 
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it Pes Pa 
DISKSVMSMASTER: CERF .SRCIRXDISK.FOR;1 


ND WAS SINGLE 
ND WAS DOUBLE 


Oooo 
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8 CALL FRCTOF (LUN) 

9 call dhead1 (lun,"UBA RX211') 

03 done = .false. 

0340 

tg! if (LibSextzv (5,1,rx2_cs) .eq. 1) done = .true. 
0348 CALL LINCHK (LUN,2) 

0345 WRITE(LUN,20) RX2 gs 

Bee 20 FORMAT(/" *,T8,*RR2CS',124,78.4) 

0348 if (done) then 

0349 

O20 call Linchk (lun,1) 

0326 write(lun.25) LibSextzv(4,1,rx2_cs) 

035 25 format(* §,t40,"DRIVE #',11.,'. SELECTED’) 
See endif 

b326 CALL OUTPUT (LUN,RX2_CS,V1IRX2_CS.5,5,7,'0") 
0358 if (done) then 

0359 

0360 call output (lun.rx2_cs,v2rx2_cs,8,8,9,'2") 
0361 endif 

0362 

Oee7 FIELD=LIBSEXTZV(11,1,RX2_CS) 

Oe CALL LINCHK (LUN,1) 

0367 WRITE (LUN, 45) DRIVE_TYPE(FIELD) 

0368 45 FORMAT(' T40, CONTROLLER DRIVE TYPE ', 
0369 1 A<COMPRESSC (DRIVE_TYPE(FIELD))>) 

0371 CALL OUTPUT (LUN,RX2_CS,V3RX2_CS,15,15,15,'0") 
0378 CALL LINCHK (LUN,1) 

0375 WRITE (LUN, 55) RX2_ES 

Bere 55 FORMAT(* ',18,'RX2ES*,124,78.4) 

0378 if (done) then 

0379 

Beno if (LibSextzv(1,3,rx2_cs) .eq. 7) then 

S344 call Linchk (lun,1) 

0384 definitive_error_code = Lib$Sextzv(0,7,rx2_es) 
0386 if (definitive_error_code .eq. '010'o) then 
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Breeo ni bRs Sesot ss 
data v4soft_status (6,0) /‘DRIVE #1., SINGLE DENSITY*'/ 
data vpsort status tg. i? /‘DRIVE #1., DOUBLE DENSITY*'/ 
data v4soft_status(7,0) /‘DRIVE #0. SELECTED*'/ 
data v4soft_status(7,1) /"DRIVE #1. SELECTED*'/ 


if Pees Pa 
ERF .SRCIRXDISK.FOR;1 
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1 
221: DISKSVMSMASTER: CERF. 


| 
56 Page 5. 
SRCIRXDISK.FOR;1 | 


write(lun,60) 
60 format(* °,t40,"DRIVE #0., “‘HOME' FAILURE ON INIT") 


else if (definitive_error_code .eq. '020'o) then 


write(lun,65) 
65 format(’ °,t40,"DRIVE #1., ‘‘HOME’’ FAILURE ON INIT’) 


else if (definitive_error_code .eq. ‘'040'o) then | 


write(lun,70) 
70 format(* *,t40,"TRIED TO ACCESS TRACK >77."') 


else if (definitive_error_code .eq. '050'o) then 


write(lun,75) 
75 format(' *,t40,°’"HOME'’ BEFORE DESIRED TRACK') 


else if (definitive_error_code .eq. '070'o) then 


write(lun,80) 
80 format(' °,t40,°2. REVOLUTIONS, SECTOR NOT FOUND’) 


else if (definitive error_code .eq. '110'o) then 


write(lun,85) 

85 format(" °,t40,°>40 MICRO-SEC, NO ‘’SEP’’ CLOCK") 
else if (definitive_error_code .eq. '120'o) then | 
write(lun,90) 

90 format(’ *,t40,"A PREAMBLE NOT FOUND") 


else if (definitive_error_code .eq. ‘'130'o) then 


write(lun.95) 
. format(* *,t40,*PREAMBLE BUT NO “‘ID’'*) 


else if (definitive_error_code .eq. '140'o) then 


write(lun,100) 
100 format(" *,t40,"CRC ERROR, HEADER’) 


else if (definitive_error_code .eq. ‘150'o) then 


write(lun,105) 
105 format(’ *,t40,"HEADER/DESIRED TRACK MISMATCH’) 


else if (definitive_error_code .eq. '160'o) then 
write(lun,110) 
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33110 format’ *t40,"TOO MANY TRIES FOR “IDAM'*) | 
4) else if (definitive_error_code .eq. ‘'200'o) then 
rk write(lun,115) 
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format(" *,t40,"CRC ERROR, DATA’) 
else if (definitive_error_code .eq. '220'o) then 


write(lun,1 20) 
format(’ °,t40,"DIAGNOSTIC MODE TEST FAILURE’) 


else if (definitive_error_code .eq. ‘'240'o) then 


write(lun)1 25) 
format(' *,t40,"DENSITY ERROR") 


else if (definitive_error_code .eq. ‘'250'o) then 
write(lun,150) | P = 
hh + -t40,"SET DENSITY, INCORRECT ‘KEYWORD’ ) 
else 

CALL OUTPUT (LUN,RX2_ES,VIRX2_ES,0,0,4,'0") 

call output (lun,rx2_es,v2rx2_es,5,5,5,'2") 


CALL OUTPUT (LUN,RX2_ES,V3RX2_ES,6,6,6,'0") 
endif 


call output (lun,rx2_es,v3rx2_es,6,7,7,'0") 
CALL LINCHK (LUN,1) 

write(lun,25) LibSextzv (8,1, rx2_es) 

CALL OUTPUT (LUN,RX2_ES,V3RX2_ES,10,10,11,°0") 
endif 


call Linchk (lun,4) 


write(lun,135) (extended status(i), 4) 
format(’ *,t8,EXTENDED STATUS’, attoe, a *4,:/)) 


definitive_error_code = LibSextzv(0,8,extended_registers(1)) 
call Linchk (lun,1) 

if (definitive_error_code .eq. '010'o) then 

write(lun,60) 

else if (definitive_error_code .eq. '020'o) then 
write(lun,65) 

else if (definitive_error_code .eq. '040'o) then 
write(lun,70) 

else if (definitive_error_code .eq. ‘'050'o) then 
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cae Sgep18be fesatsst — DiSksumSRAsTER: LEAF sRcoRxDISK.FoR;1 88” 
write(lun,75) 

else if (definitive_error_code .eq. ‘'070'o) then 
write(lun,80) 

else if (definitive_error_code .eq. ‘110'o) then 
write(lun,85) 

else if (definitive_error_code .eq. '120'o) then 
write(lun,90) 

else if (definitive_error_code .eq. ‘'130'o) then 
write(lun,95) 

else if (definitive error_code .eq. '140'o) then 
write(lun,100) 

else if (definitive_error_code .eq. '150'o) then 
write(lun,105) 

else if (definitive_error_code .eq. '160'o) then 
write(lun,110) 

else if (definitive_error_code .eq. ‘'200'o) then 
write(lun,115) 

else if (definitive_error_code .eq. ‘220'o) then 
write(lun,120) 

else if (definitive_error_code .eq. ‘'240'o) then 
write(lun,125) 

else if (definitive_error_code .eq. '250'o) then 
ur Sygtten, 1300 
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word_count_register = LibSextzv(8,8,extended_registers(1)) 
cali Linchk (lun,1) 


write(lun.137) "WORD COUNT REGISTER ',word_count_register,* (HEX) 
137 format(’ °,t40,a,24.4,a) 


current_track_address_driveO = LibSextzv(16,8,extended_registers(1)) 
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-Sep-1984 DISKSVMSMASTER: CERF .SRCIRXDISK.FOR;1 
eB call Linchk (lun,1) 8 
60 write(lun,140) current_track_address drive0 Q3! 
61 140 tormat(’ ',t40 TCORRENT TRACR of" oe 03° 
6¢ 1 i<compress4 (current_track_address_driveO)>,"., DRIVE #0.") 8 
5 current_track_address_ drivel = LibSextzv(24,8,extended_registers(1)) 8 
call Linchk (lun,1) 0% 
ff ss 
568 write(lun,145) current track address drivel 03: 
288 145 format(’ *,t40,"CURRENT TRACR @', 8 ¢ 
359 1 i<compress4 (current_track_address_drivel)>,'., DRIVE #1.°) | 
O26 target_track = LibSextzv(0,8,extended_registers(2)) | | 
0574 call Linchk (lun,1) | ( 
0575 : ( 
$278 write (lun,150) target_track ( 
57 150 format(' ‘',t40,"TRACK #',i<compress4 (target_track)>, ( 
0378 1 *., TARGET TRACK") 
0380 target_sector = LibSextzv(8,8,extended_registers(2)) ( 
b28¢ call Linchk (lun,1) } 
058 { 
0584 write(lun,155) target_sector } 
0585 155 format(’ *,t40,'SECTOR #',i<compress4 (target_sector)>, 1 
0586 *., TARGET SECTOR') 
0388 soft_status = LibSextzv(16,8,extended_registers(2)) 
a2 call output (Llun,soft_status,visoft_status,0,0,0,'2") ' 
< 
32 call output (lun,soft_status,v2soft_status,4,4,4,'2') ‘ 
4 call output (lun,soft_status,v3soft_status,5,5,5,'0") 


call output (lun,soft_status,v4soft_status,6,6,7,'2") 
if (definitive_error_code .eq. '150'o) then 
bad_track = LibSextzv(24,8,extended_registers(2)) 
call Linchk (lun,1) 

write(lun,160) bad tr 


ack 

160 format(' §,t40,SECECTED DRIVE AT TRACK #", 
1 i<compressé (bad_track)>,*.") 

en 
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if (emb$w_hd_entry .ne. 98) then 
call uba_datapath (lun,uba_regs(1),uba_regs(2)) 
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call uba_mapping (lun,-1,uba_regs(3)) 
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if (LibSextzv (16,16,emb$l_dv_iosb1) .gt. 512) then 

col) uba_mapping (lun,-1,uba_regs(4)) 

endif 


Ft et ed 
OOONOW 


call Linchk (lun,1) 
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write(lun,165) 
165 format(' *,:) 


call ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 


call ucb$b_ertmax (lun,emb$b_dv_ertmax) 
endif 


call orb$l_owner (lun,emb$l_dv_ownuic) 
call ucb$l_char (Lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (Lun,emb$l_dv_opcnt) 
call ucb$w_errcnt (lun,emb$w_dv_errcnt) 
if (embSw_hd_entry .ne. 98) then 

call ucb$l_media (lun,emb$l_dv_media) 
call Linchk (Llun,1) 

write(lun,165) 

call rxdisk_qio (lun,emb$w_dv_ func) 
call irpSw bent (Lun ,emb$w_dv_bcnt) 
call irp$w_boff (lun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_raqpid) 
coll rete, toad (Lun,emb$l_dv_iosb1) 
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RETURN 
END 
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PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 


ARRAYS 
Address Type 


Total Space Allocated 


E 


6123 


Name 
RXDISK 


BAD_ TRACK 
CURRENT_TRACK_ADDRESS_DRIVE1 


s 
setae 
COUNT_REGISTER 
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~3007} 382 90: 3ti 4 DISKSVMSMASTER: CERF. SRCIRXDISK.FOR: 1 . 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Address Type Name 
-00000 os 1*4 CURRENT_TRACK_ADDRESS_DRIVEO 
- R208 C I*4 DEFINITIVE _ERROR_CODE 
- OO1C L*l EmMBSB_DV_CCASS 
- BROa L*1 EMBSB_DV_ERTMAX 
- th L*l EMBSB_DV_SLAVE 
- S288 1*4 EMBSL_DV_CHAR 
-00 16 I*4 EMBSL_DV_10SB2 
004 EMBSL_DV_NUMREG 
EMBSL_DV_OWNUIC 
EMBSL_HD_SID 
EMBSW_DV_BCNT 
EMBSW_DV_ERRCNT 
EMBSW_DV_STS 
EMBSW_HD_ENTRY 
FIELD 
LUN 
RX2_ES 
SPECIAL_ERROR_REGISTER 
TARGET_TRACK 
Bytes Dimensions 


10. 


“ 
@ 


0 
0 
0 
" 
0 
0 
0 
0 
" 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


PPPARAAA NAN ADA DA AAR A DD AD APP PDP PUPU PUD PIP PUDVIOD 


PAMAMAMAMYN 


>?“ oe 


on88 8s 8s 8s eee om me oe oe oe ee ee me 


pr? yt 


, a oe oe ae ey Oe, Oe Se ee 


PAAAAAA 


ue 


H 15 
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REGS (4) 05: 
AR vinxg C3 (827) 
VIRKe-ES 100 (0:4) ( 
VISOFT_ STATUS 4 (0:0, 0:1) ( 
Vv axe ts (8:9, 0:1) ( 
VORKe-ES 42 (5:5. 0:1) 9 ( 
VoSOFT STATUS 52 (4:4 1) 54 
v RXxg CS (15:45) | >¢ 
V3RKO-ES ‘ (6:7) 5¢ 
v3SorT_ STATUS (5:5) 5 
varx2_ES 40 (10:11) 05¢ 
V4SOFT_STATUS 104 (6:7, 0:1) Ba! 
| 05; 
LABELS 62: 
Address Label Address Label Address Label Address Label Address Label Address Label Be: 
1-00000068 20° 1-000000 5! 1-00000098 45° 1-000000BC 55° 1-000000CE 60° 1-000000F7 65° 05) 
1-00000120 70° 1-0000014 8. 1-000001 g 80' 1-0000018D 85° 1700000185 90° 1-000001CE 95° 05) 
1-000001EA 100° 1-00000203 105° 1-00000228 110° 1-00000249 115° 1-00000260 120° 1-90000¢84 125" 05) 
1-00000899 130° 1-000002C1 135° 1=000002E4 137° 1=000002EF 140° 1-0000031A 145° 1-00000345 150° 05; 
1-00000 155° 1-00000393 160° 1-000003B8D 165° Bat 
05: 
FUNCTIONS AND SUBROUTINES REFERENCED tt 
Type Name Type Name Type Name Type Name Type Name Type Name | 05! 
1*4 COMPRESS4 1*4 COMPRESSC DHEAD1 FRCTOF IRP$L_PID IRP$Q_10SB 05% 
IRP$W_BCNT IRP$W_BOFF I*4 LIBSEXTZV LINCHK ORB$L_ OWNER TPuT 05! 
RXDISR_QIO UBA_DATAPATH UBA_MAPPING UCB$B_ERTCNT UCB$B_ERTMAX UCBSL_CHAR 05! 
UCBSL_FEDIA UCBSL_OPCNT UCBSW_ERRCNT UCB$W_STS Ba, 
| dee 
05‘ 
05: 
| 05: 
05‘ 
a: 
05< 

i 


3 


s | 


15 
16-Sep-1984 00:14:14 VAX=11 FORTRAN ¥3.4-56 P 12 
g-$e0-18 4 TES DISKSVMSMASTER: CERF SRC IRXDISK.FOR: 1 mp 


Subroutine RXDISK_Q10 (Lun,emb$w_dv_ func) 
include ‘src$:qiocommon.for /nolist' 


71 

Le byte lun 

4) integer*2 emb$w_dv_ func 

8 integer*4 qiocode(0:1,0:63) 
78 

79 


if (qiocode(0,0) .eq. 0) then | 


ei qiocode(1,08) = Zloc(io$_packack) 
es qiocode(1,11) = Zloc(io$_writepblk) | 
285 qiocode(1,12) = Zloc(io$_readpblk) | 
287 qiocode(1,26) = Xloc(io$_setchar) | 
44 qiocode(1,27) = Zloc(io$_sensechar) 

1 qiocode(1,30) = Zloc(io$_format) 
598 qiocode(1,32) = Zloc(io$_writelblk) 

95 qiocode(1,33) = Zloc(io$_readiblk) 

44 qiocode(1,35) = Zloc(io$_setmode) 


| 
| 
qiocode(1,39) = Zloc(io$_sensemode) 

qiocode(1,48) = Xloc(io$_writevblk) 

qiocode(1,49) = Zloc(io$_readvblk) 
giocode(1,50) = Zloc(io$_access) | 
qiocode(1,51) = Zloc(io$_create) 

qiocode(1,52) = Zloc(io$_deaccess) 

qiocode(1,53) = Zloc(io$_delete) 

qiocode(1,54) = Zloc(io$_modify) 

giocode(1,56) = Zloc(io$_acpcontrol) | 
qiocode(1,57) = Zloc(io$_mount) 
do 10,4 = 0,63 | 
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15 
RXDISK_Q10 1B-Sep-19 re 90: 16:16 VAX=11 FORTRAN V3.4-56 Page 13 


-Sep-19 1  DISKSVMSMASTER: LERF .SRCJRXDISK.FOR;1 


1 giocode(0,i) = 33 86, 
§ if (qiocode(1,i) .eq. 0) then 06, 
5 qiocode(1,i) = Zloc(qio_string) | I 
$ endif | 
10 continue 1 
§ endif re 
1 call irpSw func (Lun,emb$w_dv_ func, | 06! 
8 ¢ 1 qiocode(0, LibSextzv(0,6,embSw_dv_func))) | 
8 : return 
0 end PR( 
| 
PROGRAM SECTIONS 
{ 
Name Bytes Attributes | 
SCODE 225 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA $ PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
SLOCAL 54 PIC CON REL LCL NOSHR NOEXE D WRT LONG 
QIOCOMMON 1247 PIC OVR REL GBL SHR NOEXE RD WRT LONG EN) 
Total Space Allocated 2028 
( 
ENTRY POINTS 
Address Type Name VAI 
0-00000000 RXDISK_Q10 
i 
VARIABLES | 
{ 
Address Type Name Address Type Name 
1*2 EMBSW_DV_FUNC 
CHAR ios, T S 
CHAR I0$_ACPCONTROL ABLE 
CHAR I0$_CLE E 
CHAR IO$_DEACCESS E 
CHAR 10$_DIAGNOSE R 
CHAR 10$-DsE TAPE 
CHAR “FORMAT ALIZE 
CHAR I0$_LOADMCODE Y 
CHAR issvortee 
CHAR [0$_OF FSET CK | 
CHAR 10$"QSTOP ATS 
CHAR IG$_READCSR DHEAD 
CHAR i0$ READLBLK DPBLK Al 


seo 1a Weatiot 
10$_READTRACKD 


$=R RecA 


RXDISK_Q10 ig: 
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ARRAYS 
Address Type 
2-00000000 [4 


Name 
QIOCODE 


Bytes Dimensions 
512 (0:1, 0:63) 


LABELS 
Address 


ef 


Label 
10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
IRPSW_FUNC 


Type Name 
I*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:RXDISK/OBJ=OBJ$:RXDISK MSRC$:RXDISK 
/CHECK=(NOBOUNDS , OVERFLOW NOUNDERF LOW) 
/DEBUG= (NOS YMBOL § TRACE 


/*7 


DE, 
/NOG_FLOATING 14 WOPTIALTE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE CODE 


VAX=11 FORTRAN 


DISKSVMSMASTER: 


3.456 
ERF .SRCIRXDISK.FOR;1 


/CONTINUATIONS=19 


Page 


14, 


RXDISK_Q10 
COMPILATION STATISTICS 


3.45 seconds 


un Time 
TA sed Time: 
D faults: 49 
35 pages 


Page 
D 9g 


5: 73_ seconds 
ynamic Memory: 


i 3op-} 382 92: Mt: df be KSVMSHASTER: feat aRcaRxvIsK.FoR; 12 sy 
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